home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / DVER20.ZIP;1 / SAMPLE2.VER < prev   
Encoding:
Text File  |  1993-03-07  |  1.0 KB  |  47 lines
  1. IF\ DOS
  2.   IF DATE() = {01/01/1980}
  3.     ??CHR(7)+CHR(7)
  4.     TEXT
  5.  
  6.   The system date has not been set.  Use the operating system DATE command
  7.   to set today's date.  At the operating system prompt, type a command of
  8.   the form:
  9.  
  10.                       DATE 07.07.87
  11.  
  12.   ... and press the RETURN key, which may be marked ENTER or ƒƒŸ.  The
  13.   above command would set the date to July 7, 1987.  Once you have done
  14.   this you can run this program again.
  15.  
  16.     ENDTEXT
  17.     @ 23,0
  18.     WAIT "Press any key to return to the operating system . . . "
  19.     QUIT
  20.   ENDIF
  21. END\
  22.  
  23. IF DISKSPACE() < 1474560
  24.   ??CHR(7)+CHR(7)
  25.   TEXT
  26.  
  27.   Diskspace too small for application...
  28.  
  29.   ENDTEXT
  30.   @ 23,0
  31.   WAIT "Press any key to return to the operating system . . . "
  32.   QUIT
  33. ENDIF
  34.  
  35. IF !SYS(2000,PROGRAM()+".MEM") == ""
  36.   ??CHR(7)+CHR(7)
  37.   TEXT
  38.  
  39.   Please remember to exit this application before turning off the computer...
  40.  
  41.   ENDTEXT
  42.   @ 23,0
  43.   WAIT "Press any key to continue . . . "
  44. ENDIF
  45. SAVE TO (PROGRAM())
  46.  
  47.